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SCREEN # i 


N WORMS? COPYRIGHT (É) 1983 BY DAVID S. MAYNARD 
í MASTER OCT. 9, 1993. COMMODORE 64 FINAL ) HEX 
CO02 CONSTANT HIMEM HIMEM 1000 - CONSTANT APMAREA 
@ VARIABLE FNCUR @ VARIABLE CHCUR 
CODE (FCH) 
C6 LDA, Ø= NOT IF, 277 LDA, THEN, PUSH@A JMP, END-CODE 
HERE Ø C, AC, AE 2 C, 10, Q C, Dé - CONSTANT CV84- 
: JCH BEGIN (PEH) 
DUP IF DUP B4 MAX 89 MIN CVB4- + Ca 
-DUP IF FNCUR ! ELSE DUP CHCUR ! THEN 
FLKBD THEN 
DROP (2CH) @= UNTIL CHCUR ë ; 
: KEY BEGIN CHCUR @ @= WHILE ?CH DROP REPEAT 
EHCUR @ Ø CHCUR ! ; 
: =KEY SWAP OVER = IF KEY = ELSE DROP @ THEN : 
: TERMINAL ICH DROP FNCUR @ Q FNCUR ! DUP 8 = IF QUIT THEN ; 


SCREEN # K 


( WORM GAME CONSTANTS ) 

A (=> MAX#W $H 1 - (2 #H-1 

#V 1 - (-) #V-1 FF (-» UNDFMOVE 
#DH 1 — (=; #DH-i 

#DV i - (=> #DV-i 

Fi (=) BETNEW Fe (— 


6 (=> NOMOVE 

3 VAR DEN í DENSITY ) 

Ø VAR #WORKS 

@ VAR WORMY i VAR GPR 

Ë VAR MXLUM 07 VAR STD 

i (=> PWDTH 

8 VAR KCSHI 

ü VAR LOCK ( INTERLOCK FOR FORTH VBI ! IN UBDMAR ) 
{ LOCKED IN UPDMAP CHECKED IN CDEST2 ) 


DOAT# Fa (-) DIER 


SCREEN # sch 


Ë 
(=> AUDC D280 (=> AUDF 
(=> AUDETL 1 VAR VEION 


ð, 
Tí rech. TABLE ) 


pa 


C, l, 

CDT ( COUNT DOWN TIMERS ) 

CODE DECCDT ( DECREMENT CDT ) 
ü # LDA, 


cor X CMP, Ø= NOT 
CDT „X DEC, THEN, 
ah END-CODE 


SCREEN # 7 


:5 ( INTERRUPT ROUTINES UPDHS) 
8 VAR HESHAD 4 ALLOT 
CODE UPDHS ( DPD HRZ POS ) 
HPSHAD «LDA, DØ STA, 
HPSHAD 1 + LDA, DOOL STA, 
MPSHAD 2 + LDA, DQQ2 STA, 
HPSHAD 3 + LDA, D0Q3 STA, 
RTS, END-CODE 


( : CTABLE (BUILDS !CSP 3 HERE ) 
( DOES) èt ; 
( : Gre ERE ES ) 
( 3 2PAIRS IESP ; ) 
í , Toby 2 C — D H ) 
( : WTABLE (BUILDS ‘CSP 3 HERE ) 
; ) 


E DOES? Ef 


* 
bi 


sá 


SCREEN # = 


í WORM GAME START ) HEX 

\ + (2) CONSTANT ; : ( UC; 

4 pa VARIABLE ; 

« s 

ih GA #H ib GA #V 12 GA #DH ie 
#DH 2 / GA STNK 

SIN 2 / CG Sg STY 


(+ #DV 1 (=> HØ Í (+ VQ 


Cie We Ü (-) CHW 

g VAR ek 
: STDP 2 TERMINAL BALE 8 OR 
DUP BFLG ! ; 


: CONT STOP Q= ; 
Aë (=) CB4SCR 


SCREEN # 4 


{ WORM GAME CONSTANTS CONT. ATARI HDH ) 
{ FIRST 1 + Du / GOU * BÈZ — ) 

( BES B CIF - ) APMAREA \ DUP (— PWA 
co) - DUP (=> WCHSET í FITS! ) 

KH #V * - (-} WDATA 


í DAWA (=> WSYNC ) CA (=> MAXEDT 

M B22F (-) DMACTL DiD (-» GRACTL 
V D487 (-} PMBASE 

M 208 (+ COLBK 204 (3 COLPF® 

X. -ES (-) COLPF1 2£6 (=; COLPFe 

V 207 (+ EDLPFS 208 (-) COLPMØ 

x OCI (-) COLPM1 2C2 (3 DDR 

M 203 (-+ COLPMS 26F (=> BBRIDR 

M D30% (-) PORTA BETA ( POTS 

\ DARE (=> NMIEN 3:5 


re 


SCREEN # 6 


( MAP VET TABLES AND CONTS ) 
HERE 


= 


` 
` p fyl, Í 
V LA EDT ( MOVE CDTIMERS ) 
HER 

8,8, 8, d, 
4, MAPCDT ( MAP CD TIMER ) 


fi som 


į- 
HE 
3,0, 8, B, 
(=> MAPMOVE ( MOVE ARRY ) 
CODE DECMAP « DECREMENT CDT ) 
Ø # LDA, 

MAPCDT „X CMP, B= NOT 


IF, MAPCDT „X DEC, THEN, 
dë END-CODE 


au" 


SCREEN # 8 


$8 ( INTERRUPT ROUTINES SETVOL ) 
Ë 

ASE, A7 C, AL C, ABC, ASC, ASC, ASC, Ak D, 
AL E, 83 D, ABC, ALÈ, ABC, ABC, ABC, AB E, 
AB E, A7 C, ABC, ABC, AS D, A4 E, ABC, A3 L, 
A4 Ë, ARC, AC, ALC, AB Ë, AB E, AB C, ABC, 
AG C, ABC, A7 C, AG E, ASC, A4 C, ARC, ABC, 
A2 E, ALÈ, ABC, ABC, ABC, ABC, ABC, ABE, 
RE C, ABC, ABC, ASC, ABC, ABC, Ai C, ABC, 
Að C, ABC, AB C, ABC, ABC, ABC, AÐ Ë, ABC, 


(=+ ENV 
so 


SCREEN # 2 


$5 ( PMXTRB SETVOL ) 
CODE SETVOL € SETVOLUME ) 
CDT „X LDA, @= IF, Ø # LDA, 
AUDC ,X STA, FROT „X STA, 
ELSE, STO LDA, SEL, 
CDT „X SBC, F # AND, FØ STA, 
„À AGL, .A ASL, .A ASL, CLL, Fa “Me, Pep: 
TAY, ENV ,Y LDA, 
( F # AND, AG # DRA, ) 
AUBC , X STA, 
( FROT „X LDA, AUDF ,X STA, ) 
( Ø 4 LDA, AUDETL STA 
THEN, CLE, RIS, END-LODE ; ;5 
CTABLE PMXTAB 3C C, 64 C, BC E, B4 Ü, 
ENDTAB 


:5 


SCREEN # 11 


35 ( INTERRUPT ROUTINES APOTS ) 
8 VAR WEOT 2 ALLOT Ø VAR PSCAN 


( CODE REOT ( READ POT ) 

( t DAMPROT JSR, ) 

( EG # LDA, SEC. CPOT ,X SBC, ) 

( A LSR, „A LSR, .A LGR, ) 

(74 AND, & # CMP, BES, ) 

(IF, 5 # LDA, THEN, 

( Mr „X STA, CLC, RTS, END-CODE ) 


CODE RPOTS ( READ POTS ) 
ESCAN LDA, Ø= NOT IF, 
B#LDX, BEGIN, 
` DAMPRÒT JSR, 
INX, 4 # CPX, Ø= 
UNTIL, CLC, THEN, 


* 
1 


RTS, END-CODE 


SCREEN # 13 


( WORM PRIMITIVES CONT ) 
CODE .HPOS `? SETI JSR, 


r (HUE í WORM KEOS ) 
SWAP 8 +E! ; 
CODE VO ' SETI JSR, 
: 'VEOS SWAP 9 +C! : 
CODE .CRIX ' SETI JSR, 
: !CRIX SWAP A +C! : 
„TMO 40 + id ; 
: ‘THO SWAP 4C + ! ; 


28 # LDY, ` .YPOS 5 + JMP, END-CODE 
89 # LDY, ` 


GA # LDY, ' 


; YPOS Š 
«YEOS 5 


+ JWP, 
+ IMP, 


END-CODE 
END-CODE 


SCREEN # 15 


í WORM PRIMITIVES CNT WAITTAB ) 
: (STATUS SWAP 6 + Ü! ; 
: (WORM SWAP 7 + E! ; 
: MOVE ( WORM N MOVE) 
SWAF ROT B + + C! ; 
: „VAL „LOC CË ; 
: ‘VAL ( W VAL ) ZDUP SWAP LOC C! 64!VAL ; 
: [VALJ „VAL 3F AND ; V MASK OFF COLOR 
( ; CWAITTAB (BUILDS ) 
í ££ 2-6, e De. f bi cl 
(BÈ 2c, DOES) í ) 
( CWAITAB WALTTAB ) 


ið 





SCREEN # ið 


5 ( INTERRUPT DAMBPDT |) 


ki 
` 


\ 
x 
k' 


` 
V; 


ka ë* DUP + 


> P" Q 14 


D3 (-) HEA DE ( 


@ VAR CPOT 4 ALLOT 
CODE DAMEPOT ( DAMP POT ) 
CPOT „X LDA, SEC, 
POTO „X DMP. 
CS IF, SEC, POTO „X SEC, 
D LSR, .A LSR, SEC, 
FF # EOR, CLC, CPOT ,X ADC, 
CPOT ,X STA, ELSE, 
POTO ,X LDA, SEC, 
CPOT „X SBC, „Á LSA, 
CLC, ÈPDT ,X ADC, 
EPOT „X STA, 


THEN, 
CLE, RTS, END-CODE 


«A LSR, .A LSR, 


a 
1 


SCREEN # ie 


( WORM PRIMITIVES ,XPDS ETC ) 
CODE .XPOS 1 Cé JMP, END-CODE 
CODE SETI 1 # LDA, SETUP JSR, RTS, END-CODE 
CODE .YPOS ' SETI JSR, Bi # LDY, N JY LDA, PUSHOA JMP, END-CODE 
CODE N)Y@ N )Y LDA, PHA, INY, NOY LDA, BUSH JMP, END-CODE 
CODE LOC — ' SETI JSR, @2 # LDY, ' N)Yü JMP, END-CODE 
CODE .#MOVES ? SETI JSR, 04 4 LDY, ' N)YB JW, END-CODE 
CODE .STATUS ' SETi JSR, 06 # LDY, ' .YPOS 5 + JMP, END-CODE 
CODE vun 1 SETI JSR, 07 # LDY, ` .YPOS S + JMP, END-CODE 
CODE „MOVE ØB # LDA, ' A+ JSR, BÒT LDA, BOT i+ LOY, INX, INN, 

` AV+ JSR, ' CE JMP, END-CODE 
cone +C! BOT LDA, INX, INX, ' AQ+ JSR, ' C! JMP, END-CODE 
XPOS ( WORM XPOS ) SWAP P: ; 
'YPDS SWAP 1+ C! ; 
(LOC SWAP 2+ ! ; 
!#MOVES SWAP 4 + ! ; Ss 


SCREEN # 14 


#BITS WAIT 
: ENDIF [COMPILE] THEN + 

: #BITS ( BYTE A #BITS ) 
`Ø OVER 1 AND IF 1+ ENDIF 
OVER 2 AND IF 1+ ENDIF 
DVER 4 AND IF i+ ENDIF 
DVER 8 AND IF 1+ ENDIF 
OVER 10 AND IF i+ ENDIF 
OVER 28 AND IF i+ ENDIF SWAP 

DROP ; 

: WAIT ( TICKS -) ) BBI ZAC 
DECIMAL 89 92 HEX THRU DECIMAL 138 140 HEX THRU 
@ 220 ! FF 22E C! 1 MAX 
cod ! BEGIN OC CE Ø= UNTIL 


eee 


IMMEDIATE 


s 
bi 


SCREEN # 16 


{ WORM PRIMITIVES CONT ) 

: „KIND 48 + CR: 

r ‘KIND SWAP AB +E; 

: .SCORE AL + @ ; 

: ISEDRE SWAP 40 + ! ; 

r „NAME AE +; 

- EAFDRTH ë* IS FASTER 

: 3t DUP 2% + ; 

: 4% ce Ce; 
: B* 4% 2# s ( : Sch DUP 4* + B# ; ) 

+ ROWERS 

KAV GCOLERS Li 3 a COLCRS Ë ; 

: Yi DUP ROWCRS Ci coe EB4SER + Di! 3 ou Yü ROWCRS LR: 

. AYI. YE KÈ W Seef D AN 

XY! 1 286 C! 4 WHITE EK 


D 
H 











SCREEN # 17 


{ WORM TABLE BUILDERS ) 
HERE 
Vt A he S be V D. L D: © h 
(=> NMDYE 
HERE 


1. ð, -i 
GA XINCE ` 


HERE 
i,i,d8,-1,8, ti, 


3 
(=> XINEO 
HERE 
da, 1i,i, 8, -1,-i, 
(-) YINÈ 


SCREEN # 19 


HERE OC, OC, OBC, OC, OC, WQ C, 
OC, OC, MC, 3C, COC, ØC, 
3C, EOC, WE, OC, OC, aC, 
GC, OC, OC, BC, OC, oC, 
ðC, BC, OC, BE, BC, we, 
FC, FOC, @C, FC, FOC, 08 L, 
FC, FOC, OC, FC, FOC, ØC, 
ot Of, OC, OC, OC, oC, 
QC, OC, OBC, ZFC, FOC, QQ Ü, 

F C, FOC, QQ C, 3F É, FOC, QQ L, 
3F E, FOC, QQ É, 3F E, FEC, @Q C, 
FE, FOC, WE, OC, OC, ƏQ C, 
FF Ü, FF Ü, @ C, FF C, FF D, QQ C, 
FF Ü, FF Ë, B0 E, FF E, FF Ë, 00 E, 
FEC, PF É, @ C, FE É, FEC, ØL 
FFE fF C, B0 C, FF C, FF P. Øf, 


SCREEN # 2i 
( ANONB CR#24 ) 


B VAR ANONE ( ANIMATION ON ) 
: ANON 1 ANDNB |; 


HERE ERMAR WB +, ERMAR 18+, CRMAP 30+, 


ERMAR 48 +, CRMAP Dër, CRMAP 78+, 


CRMAP 90 +, CRMAP AB +, 


(=> CR#24 


SCREEN # 23 


( CDEST CCANDM VBISMASK VBIMASKTAB ) 
MAPMASK VAR MMADDR 8 VAR VBISMASK 1 VAR VBIMAPMASK 
HERE ( PAIRS: MASKVAL , Grond ) 
BE, 20, Q C, B4 Ü, BE, 06 C, 
oC BEBE, ee GE, 106 
1, 18 Ë, 3 E, £ E, 7€, 18 C, FC, 18 C, (=> VBIMASKT 
CODE CDEST2 
SPMEM , X LDA, ZT STA, 
SPMEM i+ ,X LDA, ZT i+ STA, 
ATS, END-CODE 
CODE CANDM ( AND MASK ADDR ) 
8 # LDA, SEC, MAPCDT ,X SBC, 
A ASL, TAY, 
MMA24 Y LDA, ZM STA, INY 
MM#24 ,Y LDA, ZM 1+ STA, INY, 
CLC, RTS, END-CODE 3S 





SCREEN # i8 


í ZERO PAGE DEG? 
BA (=) ZF OC GA ZT BE (-) Zh 
B4 GA 78 BE GA ZE MB (=> ZE 
SS 
SCREEN # ZØ 
FFE, FF É, DO L, FF Ú, FF C, W L, 
FF Ú; FF U, WE, FE D. 3F E. ME; 
FOC, 3F Ú; 88 U, FEL, FF Ú, WULU, 
FF b, FF D W L, FF D; FF:D; 00 D; 
FF C, FF C, WE FF C, FEC, 08 €, 
FƏ C, Fo ty ME, FÒL, `F D; 091, 
FÒ Ú, FC, BAL, FeC, FC, BE 
FF E FF C, 98 b, FF C, FF £, WW LD, 
FF C, FEC, @@C, C@C, ZE WE, 
Cac, ðr @C, CAC, At BC, 
fac, 3C, BBC, COC, 3C, BE, 
Cac, AE BE, FF C, FEC, Bò D, 
OC, BE, ð D, BE AL, WE, 
BE, BC, WE BE BE, BEC, 
BC, ØC, WAL, BC, BC, BE, 
BC, BE, QQ is. BC, BE, BE (=> MAPMASK 


SCREEN # 22 
i INTERRUPT CRMAP ROUTINES ) 


CRMAP VAR CRMADDR 
CODE CSOURCE í SES ZF ADDR ) 
MAPMOVE „X L 
«A ASL, ray 
CRee4 Y LDA, ZF STA, INY, 
CR#24 ,Y LDA, ZF it STA, INY, 
RIS, END-CODE 
: BMD WCHSET 3 + @ IF Q WCHSET 3 + EI ELSE 
8 WCHSET 3 + C! THEN ; 
HERE MARMASK @2 + , MAPMASK 18 + , MAPMASK I0 +, 
MAEMASK 48 + „ MAPMASK 68 + , MAPMASK 78 +, 
MAPMASK 90 + , MAPMASK AB +, (=> MMa24 :5 


SCREEN # 24 


( INTRPT CODE CHAR ANIMATION ) 
CRMAP 7 8 + + (=> SRCBASE 14 (=> CLKLO 
WCHSET 3F 8 x + (-) DESTEAS 
: ANOFF Q ANONB ! ; 38 8 à DO 
SRCBASE I + Ce DESTBAS I + 
C! LOOP ; 
:5 CODE ANIM 
ANONB LDA, à= NOT IF, CLKLD LDA, 3 # AND, Ø= IF, 
CLKLD LDA, iC Å 
-A ASL, TAY, 
7 # LDX, BEGIN, 
SRCBASE „X LDA, 
MAPMASK , Y AND, DESTBAS ,X 
STA, DEX, INY, FF # CPX, 
Ø= UNTIL, THEN, 
THEN, CLC, 8 5, END-CODE ;5 


SCREEN # 25 


( WRTE ) 
CODE WRTP ( WRITE PLAYERS ) LOCK LDA, 0= IF, 
17 # LDY, BEBIN, 
ZF )Y LDA, ZM )Y AND, 
ZT )Y STA, 
DEY, FF # CRY, @= 
UNTIL, THEN, CLC, RTS, END-CODE ;8 


SCREEN 





FE 














SCREEN # 


= 


{ INTERRUPT ROUTINES VBI 


CODE VBI ( VERTICAL BLANK ) 
{ CLKLO LDA a AND, Ø= 


( t ANIM JSR, 


( ' RPOTS JSR, Ë CLKLO LDA, 
I 


VEIMARMASK AND, ü= 
ë # LDX, BEBIN, 


MAPCDT ,X LDA, "@= NOT IF, 


3 


IF, ? VBISND JSR, THEN, 


` CSDURCE JSR, ' CDEST2 JSR, 
t CONDM JSR, ` WRTP JSR, 


t DECHAP JSR, THEN, 


1 DECEDT JSR; INX, INX, 


8 # CPX, Ø= UNTIL, 


THEN, (í ' UPDHS JSR, ) CLE, 
RTS, END-CODE ( SYS VBI RETURN) 
SÉ 

SCREEN # 28 


oo AND FREG TABLES CRMAP .GWADR MOVES ) 


a4 C, Wë m 48 C, 80 C, 


(-) TRIBMASK 


3 START A 4 4 @ DD I TRIBMRSK + 


` DB PORTA Cé AND Ø= DR LOOP 


3TERMINAL 7 AND ( OR) ; 


6 


: 2CLEAR BEGIN ?START Q= UNTIL 


: MOVEL8 ( FROM TD ) 
18 CMOVE ; 


SCREEN # 3@ 


í WEDHAK UPDMV ZRMAP ZMAP ) 


: ZRMAP ( SW -} ) 
© DVER MAPCDT + ! 


SPMEM + @ 18 Ø FILL ; 


DUP .VPOS SWAP ,HpDS ë* WA 
YXSPRITE 7 MAPCDT SEWA + ! 
STO CE CDT Swe + | ; 


r UPDMY í W) 
CHWA 


{ DUP MARCDT + 4 SWAP 1! ) 


MAPMOVE + 
SWAP .CRIX SWAP í ; 


35 


IMAP i W.) DROP ew ZRMAP ; 
: UPDMAP ( Wo) SAWA ZRMAP 


SCREEN # 32 
{ KILLW ) HEX 97 37 THRU 


: KILLW í WORM -> ) DROP TKILLW ; 35 


{ @VBION ! ) A 'CRIX 


XSND X „WRM# COLPFØ + 


FF SA DD RB ü DO NDDP LODP 


M 120 I - 18 / OVER CE FØ AND DR 


s F FFFF I }{ - ROVR SOUND 8 +LODP 


STOP IF LEAVE ENDIF 
a OU 


M Š OVER CE Fü AND OR SWAP C! 


XSND ( 1 VBION ! ) ; 


SS 








) 


) 





SCREEN # 27 
( ?SPEED ?SPEED2 UNFRM ) 


r RANGE i+ >R OVER R) (AR i->) R) AND; 


: ACHD ANDONE ë IF ANOFF ELSE ANON THEN ; 


: (75SPEED2) 
KEY 33 SWAP - ce VEIMASKT + DUR Ce DUP VBISMASK C! 
1 MAX VBIMAPMASK C! i+ Ci ST i 


: ISPEED 
IH -DUP IF 
30 39 RANGE 
IF (9SPEED2) THEN THEN ; 
: PROMPT2 P" CR4SCR 14 28+ + 28 20 FILL ; 
: CNFRM KEY D = DUP IF ELSE PROMPTS THEN ; 35 


SCREEN # Z9 
í UPDCRLOC ) 


: UPDERLOC ( WORM ) 
DUP „XPDS Bn 4 + 

OVER 

-YPOS 1 AND IF A + ENDIF 
SDUD 'HPOS 

( Wë HPSHAD + C! ) DROP 
DUP .YPDS 8# 2E + !VPDS ; 


SCREEN # Zi 


( WORM BUILDERS CWORM GWORM ) 
HERE 8, 8, 8, Q, (> WORMS 
: BWORM ( N A WORM ) DUP + WORMS + @ ; 
: INITWORM ( ADDR —> ) 
"YR R #WORMS @ DUP + WORMS + | 
R STX '!XPDS R STY 'YPOS R Ø ‘LOC R Q LANDES 
R 1 ISTATUS R #WORMS © 'WORM# R © !HPDS R @ !VPDS R 6 GAN 
R 40 Q DD DUP I BETNEW# ‘MOVE LOOP DROP 
R Q 'KIND R @ 'SEDRE R) „NAME R 
SSRC! 41 R 1+ C! 4D R 2+ C! 45 R 3 + Ë 
R 8 4 DO DUP I + 20 SWAP C! LOOP DROP 
Ry DROP 1 #WORMS +! ; 


SCREEN # 33 


{ UPDSTATUS ) 
r UPDSTATUS ( WORM ) 
DUP . STATUS 

IF DUP [.VAL] 3F = 

IF DUP KILLW @ ‘STATUS 
ELSE i 'STATUS ENDIF 
ELSE DROP ENDIF ; 

















SCREEN # 34 


( UPDLOC UPDCOL TRIBELR ) 
: UPDLOC € WORM ) 

DUP . XPOS OVER .YPOS #H * + 

WDATA + 'LOC : 
CODE 40% BOT LDA, CLC, .A ROR, .A ROR, .A ROR, 

BOT STA, CLC, NEXT JMP, END-CODE 

: UPDCOL ( WORM ) 

DUP E. VAL] WH Aën + !VAL ; 
: INITAUTO í WORM ) 

58 Ø DO 

DUP I DOAI# MOVE LOOP 

DUP 3E @ 'MOVE ( FORCED ) 

DUP 3D 1 (MOVE DUP 3B 2 'MOVE DUP 37 3 ‘MOVE 
DUP 2F 4 (MOVE DUP 3F DIE# 'MOVE 

iF 5 (MOVE ;5 


SCREEN # 36 


CE4SCR 14 28 * + (=> SCRMEN 
33 { DLH SAVELIST BUILDER ) HEX 
238 CONSTANT DUH 
DANA CONSTANT HSCROL 
DLH ë CONSTANT SAVDLH 
: (RESTORE SAVDLH DLH ! 
2 DARETL C! Ø GRACTL C: 
Eg cF4 C! 28 EE A Ø COLPFi C! 
C CDLPF2 É! 46 CDLPF3 C: 
` 3 DO ( CLEAR Pò tier ) 
\ Ü DOOD I + C! LOOP ; 


: 


Ya 


SCREEN # 38 
va L SETHSCRL CHARACTER SET DEF. ) 
E 


{ 
HE 
16; Et, 41, AE RE ØL 
(=>) ' swash 
SS 
í HEX #DV 2+ CD WDL 
ts SETHSURL 
( DUP 2-8 i DD 
{ DUP I 3 * + í - DUP Pü 10 DR 
{ SWAP C! 2 +LODP DROP 
í CHSCROL C! ; 
( WDL SETHSCRL 

2F4 (=> CHBAS bës (=> CHBASE 
WCHSET 198 / FF AND (=> WCHSETH 
WOHSETH VAR CHNOW C VAR SCRLVAL 


Na `<. `. ` "Meet" s. 


SCREEN # bih 


{ CHSET BUILDING ) 
: DALLY FF à DO I DROP LOOP ; 
VA VARIABLE SEED 
: RAND SEED 8 FB + 3D + DUP SEED ! 4% MOB ; 
£ RAND D012 CB SEED +! SEED CB ; 
;§ : ORCHARVEC í CHARADDR ` VECADR ) 
8 ü DO 2DUP I + CB 
OVER I + Cé OR SWAP 
I + C! LDDP DROP DROP ; 
s GRCHAR ( CHE CINDX — CHB ) 
6 ü DO GD TMASK I + LR 
AND IF 
OVER 8 # + 
TVEC I 8 * + DORCHARYEC 
ELSE DROP ENDIF LOOP 
DROP ; 


SCREEN # 35 


WORM INITIALIZATION ) 
: INITPOS ¢ WORM > 
DUP STX ‘XPOS DUP STY !YROS 
DUP NOMOVE 'CRIX DUP UPDLOC 
DUP UPDERLOC £ DUP UPDMV ) 
( DUF UPDMAR ) 
DUP 258 ‘THO UPDSTATUS + 
: INITMOVES í WORM ) 
48 a DO 
DUP I GETNEW# ‘MOVE LOOP 
DUP 3E © 'MOVE ( FORCED ) 
DUP 3D 1 ‘MOVE 
DUP 3B 2 'MOVE 
DUP 37 3 !MOVE 
DUP 2F A 'WDVE DUP 3F DIE# !MOVE 
iF 5 MWE; ;5 


en 


SCREEN # 37 


35 ( DISPLAY LIST BUILDER ) HEX 


78 ALLOT 14 , HERE HERE 70 C, 78 C, 
WDATA 


56 Ë, Q#H#+, 45 Ë, WDATA 1 #H * + 
56 C, WDATA 2 #H * + , 45 C, WATA 3 #H x + 
56 C, WDATA 4 #H # + , 46 C, WDATR 5 #H * + 
56 Ë, WDATA 6 #H * + „ 46 Ë, WDATA 7 #H * + 
56 Ë. WDATA 8 #H ++, 46 É, WATA 9 #H # + 
56 C, WDATA A #H * + „ 46 Ë, WATA B #H * + 
S6 C, WDATA C #H ++, 46 C, WDATA D #H + + 
56 C, WDATA E Hx +, 466, KDATA F #H * + 
SE C, WDATA 10 #H # + sé Ë. WDATA 11 #H # + 
56 C, WDATA 12 #H * +. 46 C, WDATA 13 #H x + 
88 É. 68 C, 46 C, AA. 50 +, BB P. 48 Ë, 

46 C, SCRMEM, Bö C, QO C, 46 C, SCRMEM 28 +, 
ut, () WÒL 

:S 

ki 


SCREEN # 39 
í CHSET BUILDING TVEC DEFS ) 


QQ C, BÈ C, BET, AF D, ca) 
AP Ë Wa C, BE C. O8 C, 
QQ C, BÈT, OBC, OC, ( 1) 
Ø8 C, B8 E, B4 C, WA C. 
QC, 20 C, BB C, BB C, í 
10 C, if P. CHL, 28 C, 
QQ C, WC, BBC, FAC, í 
ap P: Øð C., WE, Q 
20 C, CM Ë, ið KÈ 1 
BB C. Bd L, GC, Q 
ü 
ü 


L laj Tu 


04 C, 04 C, ØB E, 
00 C, WOL, WOL, 
y TVEC 


iS. 


SCREEN # 41 


i CHSET BHIL -D WDISPLAY ) 

: HI MSB ; : LD LSB ; 

: CLEARF DATA #H ey * Ø FILL 

CLEARGAPF ; 

CR BUILDCHSET í CHBASE ) DUP 200 B FILL 
ig o DO 


I ORCHAR LOOP DROP 8 WOHSET 3 + C! ; 
: IWDISPLAY { ZA ) 22 DMACTL Ë! 
í Ø2 ) BB GRACTL C! WDL DUH ! 
CG NMIEN C! \ GER CE GPRIOR C! 
V PMA HI PMBASE C! 
\ C @ DD @ I DAWA + C! LOOP { PLAYER H POS ) 


4 @ DO ( PWDTH DØØÐ I + C! ) í PLAYER WIDTHS ) 


COLPFT I + Cé COLPFØ I +E! 
\ COLPMT I + Cé COLPMO I + C! 
LOOF WCHSETH CHBAS C! ; ;8 


`. si ` í a BT ` ran ` -n 





SUREEN # 42 


{ D DO SCALE ) 

Ss DI (X-) X CLIPS) 

DUR #DH-1 HO + > IF #DH - ELSE 

DUP HA ( IF #DH + ENDIF ENDIF ; 
SEYE 4 SEY CLIPS 2 

DUP #DV-1 Và + > IF #DV - ELSE 

DUP V@ ( IF #DV + ENDIF 

ENDIF ; 

HERE (CDF 5R... ) 

{ NEED 18 ONLY ) 

892, 99, Bi. Cds, 
11257, 133% , 1663, 19h, 1006, 


2248 , 267E, 2DC6 , 3361, 39AC, 
4495 „ 4CFC , SBBC, 6602, 7358 , 
S928. 99F7, B719, CDBS , E6BÒ , 


(=> SCALE 38 


SCREEN # 44 


( [MDVEJ DECTMO GXINC XY! X! Y: * ) 
: [MOVE] ( WORM M => WORM W) 
DUP 5) IF { OVER BSND ) ELSE 
OVER .VAL OVER "NEEN + Ce 
AND IF DROP GETNEWH 
ENDIF ENDIF ; 
: DECTMO ( K A? 
DUP .TMO 13 - 50 MAX TMD ; 
: GXINC ( WORM => XINCV ) 
.YPOS í AND IF XINCD ELSE 
XINCE ENDIF ; 


Ka 


SCREEN # 46 


{ SETTIME NATMOVE CLRKBB > 
B VAR KEYPDT 

: SETTIME ( WORM ) DROP ; 
Ø KEYPOT ! 

21E ! FF 220 C! DUP . TMO 
1E ! DROP Ga +R 

2 + SCALE + CB 


STO @ R CDT +! ; 

# NXTMDVE í MOVE 5 MOVE ) 

NMOVE + Cè 5 MIN Q MAX 

r CLRKBD BEGIN ?CH WHILE "KEY DROP REPEAT ; 


nn 
LA 


SCREEN # 48 
{ FIXLB FIXLI ) 


V : FIXL2 ( Wł ) MAPCLR + Cë COLRMEM 14 28% + 28 ROT FILL ; 


:S 
`` FIXLØ (Wi | SCORE LINE) 
DUP 40% { Wë MASK ) 
SWAP 5 + SCRMEM + 
DUR 5 + SWAP 
DO I Cé 3F AND OVER OR IC! 
LOOP DROP ; 
: FIXLA ( WH) ( NAME LINE ) 


DUP Aën ( WH MASK ) 
SWAP 5 + SCRWEM 28 + + 
DUP 5 + SWAP 

Dü í Ce 3F AND OVER OR I C! 
LOOP DROP : 35 


í 


SCREEN # 43 
SOUND BSND MOND PWORM ) 


V : BSND ( WORM ==> ) DROP ; 

N EWA DUP FROT + FF SWAP ! 

V COT + 10 SWAP ! ; 

N Ü VAR FV 4 VAR BY í FOR, BK VOL) 


` 
1 


: MOND (WM) 


SWAP „ STATUS 
IF WH 3# + 2% SCALE + ü }R WV SR AR R> ROVR CGASSOUND 


ELSE DROP THEN ; 


5 


: PWORM 1 VBION ! 


3F 8 DO DUP DUP I 
«MOVE MSND 8 WAIT LOOP 


DROP 


{ 


XSND Ø VBION ! : 35 


SCREEN # 45 
3SPACE ICR MOVEDOK = TIMEOUT ) 


: ?SPACE ?CH 20 =KEY 
: ?NOTSP SE DUP Ø= SWAP 28 = DR 


F Ó ELSE KEY THEN ; 


: IER 3CH ØD =KEY ; 


A. ve Gf al” ot” 


> PAUSEP p" 
 OPAUSE OPH 03 = IF PAUSEP KEY DROP 


~~ fe Ae 


CR 


> CASES ICOMP CSP ë ICSP 4 ; ID i E 


MOVEOK ( WORM M -} FLAG ) 

TMASK + CE SWAP .VAL AND Ø= ; 
DETRACT ( Ø 4D E! ) ; 

«" PAUSED: KIT RUN m 


BEGIN ?CH IF @ ELSE KEY 03 = THEN 

TERMINAL OR UNTIL PROMAT2 THEN ; 
TIMEQUT ( MOVE --) MOVE F ) 3B5BUSE 
We ) í DUP BLINK ) ?5REED 
TRIGMASK + CB PORTA CB AND @= ) ?NDTSP ( OR) STOP OR ; 35 


SCREEN # 47 


=OR ROT +R R = SWAP R> = OR ( CASES ) 


: }OF 4 PAIRS COMPILE OVER “COMPILE ( “COMPILE BBRANCH 


HERE Ø , COMPILE DROP 5 ; IMMEDIATE 
(DF A PAIRS COMPILE OVER COMPILE } ee BBRANCH 
HERE Ø , COMPILE DROP 5 ; IMMEDIAT 


: =0F 4 JPAIRS COMPILE OVER COMPILE = COMPILE @BRANCH 


HERE Ø , COMPILE DROP 5 ; IMMEDIATE 


: INOF 4 3PAIRS COMPILE ROT COMPILE )R COMPILE R COMPILE )= 


COMPILE SWAP COMPILE R COMPILE (= COMPILE AND 

COMPILE R? COMPILE SWAP COMPILE @BRANCH 

HE RE Q , COMPILE DROP 5 ; IMMEDIATE 
ENDOF 5 2PAIRS COMPILE BRANCH HERE 8, SWAP 2 [COMPILE] THEN 

4 3 IMMEDIATE 
ENDCASES A 2PAIRS COMPILE DROP BEGIN Spe CSP ë = Ø= WHILE ë 

[COMPILE] THEN REPEAT CSP ! ; IMMEDIATE ;5 
SCREEN # 49 

ADDONE ) 


: ADDONE í ADDR ) 


YR BEGIN 
R Cé 3F AND DUP 2F 38 RANGE 
IF i+ RC! 1 ELSE 
DUP 39 = IF DROP 30 RC! R) i- )R Ø ELSE 
DROP 31 R C! 1 THEN THEN 
UNTIL A) DROP ; 


: PUTSEORE (NA) 
>R BEGIN ØR /MOD SWAP 


CM + DUP R i= Ct iy R b: 
R) 2- AR DUP Ø= UNTIL R) EDROP ; 











SCREEN # SO SCREEN # Si 


( KEYPOT GKEYPDT X! YO XY!) 
Ø VARIABLE TBUF id ALLOT Ø VAR CENT 
HEX Ø VAR SEL ( SELECTED WORM ) 
: HILA ( SEL @ FIXL2 ) ; : FIXL2 DROP : 
: GKEYPOT ( -) N) 
ASPACE KEYPDT +! KEYPDT 8; 
` PRDMPTM P" ," PADDLE/SPACERŘETURN" ; 





